home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_309_zInterface < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.9 KB  |  68 lines
  1. { %filename% -- interface file for %AppName% }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    We recommend that you not modify this module and instead modify        }
  5. {    its subclass, %Appname%Intf  The 'z' prefix on this module marks%    %}
  6. {    a module which is likely to be regenerated by AppMaker after you    }
  7. {    make changes to the user interface.  The modules without the 'z'    }
  8. {    prefix will not be regenerated by AppMaker unless you delete them.    }
  9. {    Using a separate subclass to override the AppMaker-generated code    }
  10. {    lets you regenerate code without losing your hand-coded changes.    } 
  11.  
  12. Unit z%AppName%Intf;
  13. Interface
  14.  
  15. Uses
  16.     TCL,
  17.     AMCL;
  18.     
  19. %for each window gen zinterface%
  20. %for each dialog gen zinterfaceModeless%
  21. type
  22.     Z%Appname%Doc = object (CDocument) 
  23.  
  24.         %for each window gen instance%
  25.  
  26.         {----------}
  27.         Procedure I%Appname%Doc    (aSupervisor:    CApplication;
  28.                                  printable:        Boolean);
  29.         %if multiWindow%
  30.             Procedure Free; override;
  31.             Procedure ActivateWind    (theWindow:        CWindow); override;
  32.             Procedure DeactivateWind (theWindow:    CWindow); override;
  33.             Procedure CloseWind        (theWindow:        CWindow); override;
  34.         %endif%
  35.         Function  ReadData        (var theData:    Handle): Boolean;
  36.         Procedure WriteData;
  37.         Procedure NewFile; override;
  38.         Procedure OpenFile        (macSFReply:    SFReply); override;
  39.         Procedure BuildWindows;
  40.     
  41.         Procedure DoCommand        (theCommand:    longint); override;
  42.         Function  DoSave: Boolean; override;
  43.         Function  DoSaveAs        (macSFReply:    SFReply): Boolean; override;
  44.  
  45.     end; {Z%Appname%Doc}
  46.  
  47. type
  48.     Z%Appname%App = object (CApplication)
  49.     
  50.         %for each dialog gen instanceModeless%
  51.     
  52.         {----------}
  53.         Procedure I%Appname%App;
  54.         Procedure SetUpMenus; override;
  55.         
  56.         Procedure CreateDocument; override;
  57.         Procedure OpenDocument    (macSFReply:    SFReply); override;
  58.         %for each menu gen doItems.decl%
  59.  
  60.         Procedure DoCommand        (theCommand:    longint); override;
  61.     
  62.     end; {Z%Appname%App}
  63.  
  64. {----------}
  65. Implementation
  66.  
  67. End. {z%AppName%Intf}
  68.